home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 12 / 64er_Magazin_Sonderheft_12_86-12_1986_Markt__Technik_de_Side_A.d64 / basic-demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 10 rem ******************
  2. 20 rem * demoprogramm 1 *
  3. 30 rem ******************
  4. 40 :
  5. 50 :
  6. 60 if a=0 then a=1:load"pull-down-object",8,1:rem routinen nachladen
  7. 70 :
  8. 100 dim a$(40):print chr$(147)
  9. 110 k$="file disk edit help"
  10. 120 a$(1)="      "
  11. 130 a$(2)="load"
  12. 140 a$(3)="save"
  13. 150 a$(4)="copy"
  14. 160 a$(5)="rename"
  15. 170 a$(6)="delete"
  16. 180 a$(7)="          "
  17. 190 a$(8)="directory"
  18. 200 a$(9)="name"
  19. 210 a$(10)="id"
  20. 220 a$(11)="copy"
  21. 230 a$(12)="delete"
  22. 240 a$(13)="validate"
  23. 250 a$(14)="initialise"
  24. 260 a$(15)="            "
  25. 270 a$(16)="move block"
  26. 280 a$(17)="copy block"
  27. 290 a$(18)="delete block"
  28. 300 a$(19)="save block"
  29. 310 a$(20)="load block"
  30. 320 a$(21)="print block"
  31. 330 a$(22)="              "
  32. 340 a$(23)="notepad"
  33. 350 a$(24)="calculator"
  34. 360 a$(25)="database"
  35. 370 a$(26)="word processor"
  36. 380 a$(27)="spreadsheet"
  37. 390 a$(28)="file-handling"
  38. 400 a$(29)="disk-handling"
  39. 410 a$(30)="  "
  40. 500 print chr$(19)
  41. 504 print:print"dies ist ein test der routinen"
  42. 505 print"zur verwaltung von pull-down-menues"
  43. 510 print:print:print:print:print:print:print:print:print:print:print:print
  44. 520 print "aufruf : ctrl-taste druecken"
  45. 521 print
  46. 522 print"steuerung: cursortasten zum blaettern"
  47. 523 print"von menue zu menue und zur auswahl im"
  48. 524 print"untermenue. anwahl: 'return'"
  49. 525 print
  50. 526 print"alternativ:'ctrl'+menueanfangsbuchstabe"
  51. 527 print"und menuepunktauswahl durch"
  52. 528 print"jeweiligen anfangsbuchstaben";
  53. 530 if peek(653)<>4 then 530
  54. 540 sys 50697,k$,a$(1)
  55. 550 print chr$(19)
  56. 560 print:print:print:print:print:print:print:print:print:print:print
  57. 565 print"getroffene auswahl:"
  58. 570 print "menue nr.    [157][157][157][157][157]"peek(167)+1
  59. 580 print "menuepunkt nr.    [157][157][157][157]"peek(168)+1"
  60. 590 [137] 500
  61.